#!/usr/bin/perl

# Иванов Илья
# 24.11.2013

# ЗАДАНИЕ:
# Создать вариант шаблона для поиска дат.

# РЕШЕНИЕ:
# Ищет дату в формате: дд.мм.гг
# Выделяет в тексте найденные даты скобками [].

while ($line = <>) {
	$line =~ s/(\b[0-3]\d\.[0-1]\d\.\d{2}\b)/[$1]/g;
	print $line;
}
